define alloca
proc( n )
  i := [4,5,6,7,8,9];
  return i
end;
define allocb
proc( n )
  i := [10,11,12,13,14,15];
  return i
end;
a := alloca(0);
b := allocb(0)